home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / intro.dxr / 00024_ScriptLoop.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.2 KB  |  44 lines
  1. on exitFrame
  2.   if (the mouseCast = 39) or (the mouseCast = 84) then
  3.     if the visible of sprite 2 = 0 then
  4.       sound playFile 2, "..\som\sector.wav"
  5.       set the visible of sprite 2 to 1
  6.     end if
  7.   else
  8.     set the visible of sprite 2 to 0
  9.   end if
  10.   if (the mouseCast = 40) or (the mouseCast = 81) then
  11.     if the visible of sprite 3 = 0 then
  12.       sound playFile 2, "..\som\sector.wav"
  13.       set the visible of sprite 3 to 1
  14.     end if
  15.   else
  16.     set the visible of sprite 3 to 0
  17.   end if
  18.   if (the mouseCast = 41) or (the mouseCast = 82) then
  19.     if the visible of sprite 4 = 0 then
  20.       sound playFile 2, "..\som\sector.wav"
  21.       set the visible of sprite 4 to 1
  22.     end if
  23.   else
  24.     set the visible of sprite 4 to 0
  25.   end if
  26.   if (the mouseCast = 42) or (the mouseCast = 83) then
  27.     if the visible of sprite 5 = 0 then
  28.       sound playFile 2, "..\som\sector.wav"
  29.       set the visible of sprite 5 to 1
  30.     end if
  31.   else
  32.     set the visible of sprite 5 to 0
  33.   end if
  34.   if (the mouseCast = 85) or (the mouseCast = 43) then
  35.     if the visible of sprite 6 = 0 then
  36.       sound playFile 2, "..\som\sector.wav"
  37.       set the visible of sprite 6 to 1
  38.     end if
  39.   else
  40.     set the visible of sprite 6 to 0
  41.   end if
  42.   go("PLoop")
  43. end
  44.